home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2003 OTL 3.xpl < prev    next >
Text File  |  2004-02-05  |  2KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2003\Outlook"
  5. "NAME"="Desktop Alerts"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Time in sec"
  9. "DESCRIPTION 1"="By default, the Desktop Alert Setting inside Outlook allows a maximum of 30 seconds through the normal options dialog (Tools -> Options -> Email Options -> Desktop Alert Settings)."
  10. "DESCRIPTION 2"="However, Outlook is able to keep the Desktop alert for a much longer period of time. Simply enter how long the desktop alert should stay on your screen inside the box (in seconds)."
  11. "DESCRIPTION 3"="Note: Even if you have configured a bigger value as 30 seconds here, the options dialog of Outlook will still show "30 seconds" although a much higher value will be in effect."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.x-setup.net/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems"
  15. "COMMENT 1"="found here: http://blogs.gotdotnet.com/kclemson/commentview.aspx/007214ed-5d64-4102-a5ce-c90382c86d95 ((C) KC Lemson)"
  16.  
  17.  
  18. sP="HKCU\Software\Microsoft\Office\11.0"
  19. sV=sP & "\Common\DesktopAlerts\TimeOn"
  20.  
  21. Sub Plugin_Initialize 
  22.  if RegPathExists(sP) then
  23.     i=RegReadValue(sV)
  24.     i=(i/1000) + 3
  25.     SetUIElement 1,i
  26.  else
  27.     Call Disable()
  28.  end if
  29. End Sub
  30.  
  31. Sub Plugin_CheckData(ElementIndex)
  32. End Sub
  33.  
  34. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  35.  i=GetUIElement(1)
  36.  if len(i)>0 then
  37.     i=(i*1000)-3000
  38.  else
  39.     i=7000
  40.  end if
  41.  
  42.  Call RegWriteValue(sV,i,2)
  43. End Sub
  44.  
  45. Sub Plugin_Terminate 
  46. End Sub
  47.